home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / filutil / pa_st270.zip / EXAMPLE.BAT < prev    next >
DOS Batch File  |  1995-02-01  |  1KB  |  71 lines
  1. @ECHO OFF
  2. ECHO OFF
  3.  
  4.   REM  %1   Example number
  5.   REM  %2   [P]lain, [T]race, [L]ookup menu
  6.   REM  %3   Sample file number
  7.   REM  %4   Extension for input file
  8.  
  9.   IF (%4) == () START
  10.   IF EXIST POM.TRC DEL POM.TRC
  11.  
  12. :MAIN
  13.   GO-MENU EXAMPLE%2.MNU 01%1 GO-MENU.SAV
  14.   IF ERRORLEVEL 10 GOTO QUIT
  15.   IF ERRORLEVEL  6 GOTO TRACE
  16.   IF ERRORLEVEL  5 GOTO OUTPUT
  17.   IF ERRORLEVEL  4 GOTO RUN  
  18.   IF ERRORLEVEL  3 GOTO POMFILE
  19.   IF ERRORLEVEL  2 GOTO INPUT
  20.   IF ERRORLEVEL  1 GOTO DOCU
  21.  
  22. :TRACE
  23.   IF (%2) == (L) GOTO SHOWLOOK
  24.   IF EXIST POM.TRC GOTO EOCKTRC
  25.   SHOWTEXT CKTRC
  26.   GOTO MAIN
  27. :EOCKTRC
  28.   CALL VIEW POM.TRC
  29.   GOTO MAIN
  30.  
  31. :SHOWLOOK
  32.   CALL VIEW EXAMPLE%1.TBL
  33.   GOTO MAIN
  34.  
  35. :OUTPUT
  36.   IF EXIST EXAMPLE%1.LST GOTO EOCKLST
  37.   SHOWTEXT CKLST
  38.   GOTO MAIN
  39. :EOCKLST
  40.   CALL VIEW EXAMPLE%1.LST
  41.   GOTO MAIN
  42.  
  43. :RUN  
  44.   IF (%1) == (3) SET POM=HDRCNTR/TEST
  45.   IF (%1) == (4) SET POM=descrip/price
  46.   IF (%1) == (7) SET POM=ALL
  47.   POM EXAMPLE%1.POM EXAMPLE%3.%4 EXAMPLE%1.LST
  48.   SET POM=
  49.   IF ERRORLEVEL 1 PAUSE
  50.   GOTO MAIN
  51. :POMFILE
  52.   CALL VIEW EXAMPLE%1.POM
  53.   GOTO MAIN
  54.  
  55. :INPUT
  56.   IF NOT (%1) == (5) GOTO EOWARN5
  57.   SHOWTEXT WARN5
  58. :EOWARN5
  59.   IF NOT (%4) == (DBF) GOTO EOWRNDBF
  60.   SHOWTEXT WRNDBF
  61. :EOWRNDBF
  62.   CALL VIEW EXAMPLE%3.%4
  63.   GOTO MAIN
  64.  
  65. :DOCU
  66.   CALL VIEW EXAMPLE%1.INF
  67.   GOTO MAIN
  68.  
  69. :QUIT
  70.   START @ EXAMPLES
  71.